home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / uhren & terminkalender / time / tolleuhr / tolleuhr_asm / source / tolleuhr.020.s.diff next >
Text File  |  1996-04-07  |  13KB  |  577 lines
  1. *** normal.s    Fri Nov 17 20:10:13 1995
  2. --- tolleuhr.s    Fri Nov 17 20:13:32 1995
  3. ***************
  4. *** 14,19 ****
  5. --- 14,27 ----
  6.   
  7.   ***************************************************************************
  8.   
  9. +         IFD    _PHXASS_
  10. +         machine    68020
  11. +         ENDC
  12. + 
  13. +         IFD    SNMA
  14. +         mc68020
  15. +         ENDC
  16. + 
  17.   ; include stuff
  18.   
  19.           include    exec/types.i
  20. ***************
  21. *** 226,233 ****
  22.           lea    92(a2),a0
  23.           RECALL    GetMsg
  24.           move.l    d0,WbMsg(bp)
  25. ! fromCLI        bsr    main            ; call main
  26. !         move.l    WbMsg(bp),d2
  27.           beq.s    1$
  28.           RECALL    Forbid
  29.           move.l    d2,a1
  30. --- 234,243 ----
  31.           lea    92(a2),a0
  32.           RECALL    GetMsg
  33.           move.l    d0,WbMsg(bp)
  34. ! fromCLI        btst    #1,297(a6)
  35. !         beq.s    2$
  36. !         bsr    main            ; call main
  37. ! 2$        move.l    WbMsg(bp),d2
  38.           beq.s    1$
  39.           RECALL    Forbid
  40.           move.l    d2,a1
  41. ***************
  42. *** 361,368 ****
  43.           moveq    #ItemCount-1,d2
  44.   4$        move.b    (a2)+,0(a3)        ; type
  45.           move.b    (a2)+,d0
  46. !         ext.w    d0
  47. !         ext.l    d0
  48.           bmi.s    3$
  49.           bsr    GetLocStr        ; get localized string
  50.   3$        move.l    d0,2(a3)
  51. --- 371,377 ----
  52.           moveq    #ItemCount-1,d2
  53.   4$        move.b    (a2)+,0(a3)        ; type
  54.           move.b    (a2)+,d0
  55. !         extb.l    d0
  56.           bmi.s    3$
  57.           bsr    GetLocStr        ; get localized string
  58.   3$        move.l    d0,2(a3)
  59. ***************
  60. *** 881,900 ****
  61.           beq.s    1$
  62.   6$        moveq    #$40,d0            ; while (!CTRL-C && !EndAll) {
  63.           lsl.w    #6,d0
  64. !         move.l    WinPort(bp),a1
  65. !         move.b    15(a1),d1
  66.           bset    d1,d0
  67. !         move.l    TimerPort(bp),a1
  68. !         move.b    15(a1),d1
  69.           bset    d1,d0
  70. !         move.l    AudioPort(bp),a1
  71. !         move.b    15(a1),d1
  72.           bset    d1,d0
  73.           move.l    AboutReq(bp),d1
  74.           beq.s    5$            ; no about requester
  75. !         move.l    d1,a1
  76. !         move.l    86(a1),a1
  77. !         move.b    15(a1),d1
  78.           bset    d1,d0
  79.   5$        CALL    Wait,SysBase(bp)
  80.           btst    #12,d0            ; CTRL-C ?
  81. --- 890,904 ----
  82.           beq.s    1$
  83.   6$        moveq    #$40,d0            ; while (!CTRL-C && !EndAll) {
  84.           lsl.w    #6,d0
  85. !         move.b    ([WinPort,bp],15),d1
  86.           bset    d1,d0
  87. !         move.b    ([TimerPort,bp],15),d1
  88.           bset    d1,d0
  89. !         move.b    ([AudioPort,bp],15),d1
  90.           bset    d1,d0
  91.           move.l    AboutReq(bp),d1
  92.           beq.s    5$            ; no about requester
  93. !          move.b    ([86,d1.l],15),d1
  94.           bset    d1,d0
  95.   5$        CALL    Wait,SysBase(bp)
  96.           btst    #12,d0            ; CTRL-C ?
  97. ***************
  98. *** 1237,1244 ****
  99.           moveq    #$40,d0            ; GADGETUP
  100.           cmp.l    d0,d2
  101.           bne.s    1$
  102. !         move.l    color(bp),a0
  103. !         move.b    d3,0(a0)        ; set new color
  104.           bsr    SetPattern
  105.           bsr    Rahmen
  106.           bsr    ZifferBlatt
  107. --- 1241,1247 ----
  108.           moveq    #$40,d0            ; GADGETUP
  109.           cmp.l    d0,d2
  110.           bne.s    1$
  111. !         move.b    d3,([color,bp])        ; set new color
  112.           bsr    SetPattern
  113.           bsr    Rahmen
  114.           bsr    ZifferBlatt
  115. ***************
  116. *** 1256,1263 ****
  117.           cmp.l    d1,d2
  118.           beq.s    msgRefresh        ; CASE REFRESHWINDOW
  119.           moveq    #($100>>2),d1
  120. !         add.w    d1,d1
  121. !         add.w    d1,d1
  122.           cmp.l    d1,d2
  123.           beq.s    msgMenuPick        ; CASE MENUPICK
  124.           add.l    d1,d1
  125. --- 1259,1265 ----
  126.           cmp.l    d1,d2
  127.           beq.s    msgRefresh        ; CASE REFRESHWINDOW
  128.           moveq    #($100>>2),d1
  129. !         lsl.w    #2,d1
  130.           cmp.l    d1,d2
  131.           beq.s    msgMenuPick        ; CASE MENUPICK
  132.           add.l    d1,d1
  133. ***************
  134. *** 1327,1340 ****
  135.           move.w    32(a2),d3
  136.           moveq    #$1f,d0
  137.           and.w    d2,d0            ; MENUNUM
  138. -         add.w    d0,d0            ; now index !
  139.           move.w    d2,d1
  140.           lsr.w    #5,d1
  141.           andi.w    #$3f,d1            ; ITEMNUM
  142.           lsr.w    #8,d2
  143.           lsr.w    #3,d2
  144.           andi.w    #$1f,d2            ; SUBNUM
  145. !         move.w    menuTab(pc,d0.w),d0
  146.           jsr    menuTab(pc,d0.w)    ; execute CASE
  147.           bsr    msgNewSize
  148.           bne.s    msgMenuPick        ; no error !
  149. --- 1329,1341 ----
  150.           move.w    32(a2),d3
  151.           moveq    #$1f,d0
  152.           and.w    d2,d0            ; MENUNUM
  153.           move.w    d2,d1
  154.           lsr.w    #5,d1
  155.           andi.w    #$3f,d1            ; ITEMNUM
  156.           lsr.w    #8,d2
  157.           lsr.w    #3,d2
  158.           andi.w    #$1f,d2            ; SUBNUM
  159. !         move.w    menuTab(pc,d0.w*2),d0
  160.           jsr    menuTab(pc,d0.w)    ; execute CASE
  161.           bsr    msgNewSize
  162.           bne.s    msgMenuPick        ; no error !
  163. ***************
  164. *** 1347,1354 ****
  165.   
  166.   ;--------------------------------------------------------------------------
  167.   
  168. ! menuProject    add.w    d1,d1            ; now index !
  169. !         move.w    projectTab(pc,d1.w),d1
  170.           jmp    projectTab(pc,d1.w)
  171.   
  172.   projectTab    ADDCMD    project,About,0
  173. --- 1348,1354 ----
  174.   
  175.   ;--------------------------------------------------------------------------
  176.   
  177. ! menuProject    move.w    projectTab(pc,d1.w*2),d1
  178.           jmp    projectTab(pc,d1.w)
  179.   
  180.   projectTab    ADDCMD    project,About,0
  181. ***************
  182. *** 1381,1388 ****
  183.   
  184.   ;--------------------------------------------------------------------------
  185.   
  186. ! menuSettings    add.w    d1,d1            ; now index !
  187. !         move.w    settingsTab(pc,d1.w),d1
  188.           moveq    #1,d0
  189.           and.b    12(a2),d0        ; checked=item.Flags&CHECKED;
  190.           jmp    settingsTab(pc,d1.w)
  191. --- 1381,1387 ----
  192.   
  193.   ;--------------------------------------------------------------------------
  194.   
  195. ! menuSettings    move.w    settingsTab(pc,d1.w*2),d1
  196.           moveq    #1,d0
  197.           and.b    12(a2),d0        ; checked=item.Flags&CHECKED;
  198.           jmp    settingsTab(pc,d1.w)
  199. ***************
  200. *** 1633,1640 ****
  201.   10$        lea    RPort2(bp),a1
  202.           CALL    InitRastPort,GfxBase(bp)
  203.           moveq    #0,d0
  204. !         move.l    PubScreen(bp),a0
  205. !         move.b    189(a0),d0        ; BitMap.Depth
  206.           move.l    Breit2(bp),d1
  207.           move.l    Hoehe2(bp),d2
  208.           lea    BitMap1(bp),a0
  209. --- 1632,1638 ----
  210.   10$        lea    RPort2(bp),a1
  211.           CALL    InitRastPort,GfxBase(bp)
  212.           moveq    #0,d0
  213. !         move.b    ([PubScreen,bp],189),d0    ; BitMap.Depth
  214.           move.l    Breit2(bp),d1
  215.           move.l    Hoehe2(bp),d2
  216.           lea    BitMap1(bp),a0
  217. ***************
  218. *** 1689,1695 ****
  219.           bne.s    1$
  220.           move.l    d2,d0
  221.           moveq    #60,d1
  222. !         bsr    LDiv            ; sec = 59-sec%60
  223.           moveq    #59,d0
  224.           sub.l    d1,d0
  225.   1$        move.l    d0,32(a2)        ; tv_secs
  226. --- 1687,1693 ----
  227.           bne.s    1$
  228.           move.l    d2,d0
  229.           moveq    #60,d1
  230. !         divul.l    d1,d1:d0        ; sec = 59-sec%60
  231.           moveq    #59,d0
  232.           sub.l    d1,d0
  233.   1$        move.l    d0,32(a2)        ; tv_secs
  234. ***************
  235. *** 1700,1721 ****
  236.           move.w    min(bp),d4        ; oldmin
  237.           move.l    d2,d0
  238.           moveq    #60,d1
  239. !         bsr    LDiv            ; min = sec/60
  240.           exg.l    d0,d2
  241.           moveq    #60,d1
  242. !         bsr    LDiv            ; sec = sec%60
  243.           move.w    d1,sec(bp)
  244.           move.l    d2,d0
  245.           moveq    #12,d1
  246. !         bsr    LDiv            ; std = min/12
  247.           move.l    d0,d3
  248.           move.l    d2,d0
  249.           moveq    #60,d1
  250. !         bsr    LDiv            ; min = min%60
  251.           move.w    d1,min(bp)
  252.           move.l    d3,d0
  253.           moveq    #60,d1
  254. !         bsr    LDiv            ; std = std%60
  255.           move.w    d1,std(bp)
  256.           move.w    min(bp),d0
  257.           sub.w    d4,d0            ; oldmin != min
  258. --- 1698,1719 ----
  259.           move.w    min(bp),d4        ; oldmin
  260.           move.l    d2,d0
  261.           moveq    #60,d1
  262. !         divul.l    d1,d1:d0        ; min = sec/60
  263.           exg.l    d0,d2
  264.           moveq    #60,d1
  265. !         divul.l    d1,d1:d0        ; sec = sec%60
  266.           move.w    d1,sec(bp)
  267.           move.l    d2,d0
  268.           moveq    #12,d1
  269. !         divul.l    d1,d1:d0        ; std = min/12
  270.           move.l    d0,d3
  271.           move.l    d2,d0
  272.           moveq    #60,d1
  273. !         divul.l    d1,d1:d0        ; min = min%60
  274.           move.w    d1,min(bp)
  275.           move.l    d3,d0
  276.           moveq    #60,d1
  277. !         divul.l    d1,d1:d0        ; std = std%60
  278.           move.w    d1,std(bp)
  279.           move.w    min(bp),d0
  280.           sub.w    d4,d0            ; oldmin != min
  281. ***************
  282. *** 1724,1731 ****
  283.   
  284.   ;--------------------------------------------------------------------------
  285.   
  286. ! SetAPen        ext.w    d0            ; set pen
  287. !         ext.l    d0
  288.           move.l    a2,a1
  289.           jmp    _LVOSetAPen(a6)
  290.   
  291. --- 1722,1728 ----
  292.   
  293.   ;--------------------------------------------------------------------------
  294.   
  295. ! SetAPen        extb.l    d0            ; set pen
  296.           move.l    a2,a1
  297.           jmp    _LVOSetAPen(a6)
  298.   
  299. ***************
  300. *** 1932,1943 ****
  301.   6$        move.l    d4,d0
  302.           moveq    #100,d1
  303.           add.w    d1,d1
  304. !         bsr    LDiv
  305.           move.l    d0,0(sp)        ; Breit2/200
  306.           move.l    d5,d0
  307.           moveq    #100,d1
  308.           add.w    d1,d1
  309. !         bsr    LDiv
  310.           move.l    d0,4(sp)        ; Hoehe2/200
  311.           move.l    d2,d0
  312.           add.l    0(sp),d0
  313. --- 1929,1940 ----
  314.   6$        move.l    d4,d0
  315.           moveq    #100,d1
  316.           add.w    d1,d1
  317. !         divul.l    d1,d1:d0
  318.           move.l    d0,0(sp)        ; Breit2/200
  319.           move.l    d5,d0
  320.           moveq    #100,d1
  321.           add.w    d1,d1
  322. !         divul.l    d1,d1:d0
  323.           move.l    d0,4(sp)        ; Hoehe2/200
  324.           move.l    d2,d0
  325.           add.l    0(sp),d0
  326. ***************
  327. *** 1957,1968 ****
  328.           bsr    AreaDraw
  329.           bra.s    4$
  330.   5$        swap    d0            ; else { draw hour }
  331. !         lea    dx1(pc),a3
  332. !         lea    0(a3,d0.w),a3        ; calc table entry
  333. !         lea    pent(pc),a0
  334. !         move.b    0(a0,d0.w),d0
  335. !         lea    Pens(bp),a0
  336. !         move.b    0(a0,d0.w),d0
  337.           bsr    SetPens            ; set apen + open
  338.           bsr    MoveHour
  339.           bsr    DrawHour
  340. --- 1954,1962 ----
  341.           bsr    AreaDraw
  342.           bra.s    4$
  343.   5$        swap    d0            ; else { draw hour }
  344. !         lea    (dx1,pc,d0.w),a3
  345. !         move.b    (pent,pc,d0.w),d0
  346. !         move.b    (Pens,bp,d0.w),d0
  347.           bsr    SetPens            ; set apen + open
  348.           bsr    MoveHour
  349.           bsr    DrawHour
  350. ***************
  351. *** 2047,2054 ****
  352.   
  353.   SetOPen        cmpi.w    #39,20(a6)        ; SetOPen v39+
  354.           bcs.s    1$
  355. !         ext.w    d0
  356. !         ext.l    d0
  357.           move.l    a2,a0
  358.           jmp    _LVOSetOutlinePen(a6)
  359.   1$        move.b    d0,27(a2)        ; SetOPen pre v39+
  360. --- 2041,2047 ----
  361.   
  362.   SetOPen        cmpi.w    #39,20(a6)        ; SetOPen v39+
  363.           bcs.s    1$
  364. !         extb.l    d0
  365.           move.l    a2,a0
  366.           jmp    _LVOSetOutlinePen(a6)
  367.   1$        move.b    d0,27(a2)        ; SetOPen pre v39+
  368. ***************
  369. *** 2064,2074 ****
  370.           lea    RPort2(bp),a2
  371.           move.l    Breit2(bp),d2
  372.           move.l    Hoehe2(bp),d3
  373. -         lea    handwidth(pc),a1
  374.           moveq    #0,d1
  375.           move.b    zeigerbreite(bp),d1
  376. !         add.w    d1,d1
  377. !         move.w    0(a1,d1.w),d1
  378.           lea    sinus(pc),a0
  379.           adda.w    0(a3),a0
  380.           move.b    60(a0),d7        ; y2
  381. --- 2057,2065 ----
  382.           lea    RPort2(bp),a2
  383.           move.l    Breit2(bp),d2
  384.           move.l    Hoehe2(bp),d3
  385.           moveq    #0,d1
  386.           move.b    zeigerbreite(bp),d1
  387. !         move.w    (handwidth,pc,d1.w*2),d1
  388.           lea    sinus(pc),a0
  389.           adda.w    0(a3),a0
  390.           move.b    60(a0),d7        ; y2
  391. ***************
  392. *** 2109,2116 ****
  393.           move.b    zeigertyp(bp),d0
  394.           beq.s    1$
  395.           pea    AreaEnd(pc)        ; last area cmd
  396. !         add.w    d0,d0
  397. ! 1$        move.w    ZeigerTab(pc,d0.w),d0
  398.           jmp    ZeigerTab(pc,d0.w)
  399.   
  400.   ZeigerTab    ADDCMD    Zeiger,0,0        ; case line
  401. --- 2100,2106 ----
  402.           move.b    zeigertyp(bp),d0
  403.           beq.s    1$
  404.           pea    AreaEnd(pc)        ; last area cmd
  405. ! 1$        move.w    ZeigerTab(pc,d0.w*2),d0
  406.           jmp    ZeigerTab(pc,d0.w)
  407.   
  408.   ZeigerTab    ADDCMD    Zeiger,0,0        ; case line
  409. ***************
  410. *** 2440,2453 ****
  411.           subq.w    #4,a2            ; ttypes[k]
  412.           move.l    d5,a3            ; buffer for sprintf
  413.           moveq    #0,d0            ; TOP
  414. -         move.l    WinPtr(bp),a1
  415.           moveq    #0,d1
  416. !         move.w    6(a1),d1        ; window->TopEdge
  417.           bsr    SetToolType
  418.           moveq    #1,d0            ; LEFT
  419. -         move.l    WinPtr(bp),a1
  420.           moveq    #0,d1
  421. !         move.w    4(a1),d1        ; window->LeftEdge
  422.           bsr    SetToolType
  423.           moveq    #2,d0            ; WIDTH
  424.           move.l    Breite(bp),d1
  425. --- 2430,2441 ----
  426.           subq.w    #4,a2            ; ttypes[k]
  427.           move.l    d5,a3            ; buffer for sprintf
  428.           moveq    #0,d0            ; TOP
  429.           moveq    #0,d1
  430. !         move.w    ([WinPtr,bp],6),d1    ; window->TopEdge
  431.           bsr    SetToolType
  432.           moveq    #1,d0            ; LEFT
  433.           moveq    #0,d1
  434. !         move.w    ([WinPtr,bp],4),d1    ; window->LeftEdge
  435.           bsr    SetToolType
  436.           moveq    #2,d0            ; WIDTH
  437.           move.l    Breite(bp),d1
  438. ***************
  439. *** 2553,2560 ****
  440.           rts
  441.   
  442.   GetToolType    lea    tt_Tab(pc),a0        ; get ptr to tooltype
  443. !         add.w    d0,d0
  444. !         adda.w    0(a0,d0.w),a0
  445.           rts
  446.   
  447.   SetStr        move.l    -4(a2),a3        ; make a string
  448. --- 2541,2547 ----
  449.           rts
  450.   
  451.   GetToolType    lea    tt_Tab(pc),a0        ; get ptr to tooltype
  452. !         adda.w    0(a0,d0.w*2),a0
  453.           rts
  454.   
  455.   SetStr        move.l    -4(a2),a3        ; make a string
  456. ***************
  457. *** 2612,2619 ****
  458.           tst.b    smarthour(bp)
  459.           beq.s    3$
  460.           moveq    #24*2,d0
  461. !         add.w    d3,d3
  462. !         add.w    d3,d3
  463.           sub.w    d3,d0
  464.           bra.s    3$
  465.   ; if (chime==2 && (min==15 || min==30 || min==45))
  466. --- 2599,2605 ----
  467.           tst.b    smarthour(bp)
  468.           beq.s    3$
  469.           moveq    #24*2,d0
  470. !         lsl.w    #2,d3
  471.           sub.w    d3,d0
  472.           bra.s    3$
  473.   ; if (chime==2 && (min==15 || min==30 || min==45))
  474. ***************
  475. *** 2689,2696 ****
  476.           bsr.s    EndTune            ; free channels
  477.   3$        bra.s    1$
  478.   2$        st    0(a1,d1.w)        ; audsent[reqnr]=1;
  479. !         add.w    d1,d1
  480. !         add.w    d1,d1
  481.           lea    AudioIO+0(bp),a1
  482.           move.l    0(a1,d1.w),a1
  483.           move.w    #3,28(a1)        ; io_Command = CMD_WRITE;
  484. --- 2675,2681 ----
  485.           bsr.s    EndTune            ; free channels
  486.   3$        bra.s    1$
  487.   2$        st    0(a1,d1.w)        ; audsent[reqnr]=1;
  488. !         lsl.w    #2,d1
  489.           lea    AudioIO+0(bp),a1
  490.           move.l    0(a1,d1.w),a1
  491.           move.w    #3,28(a1)        ; io_Command = CMD_WRITE;
  492. ***************
  493. *** 2744,2751 ****
  494.           clr.w    NewGad+16(bp)        ; clear gadget id
  495.           move.b    (a3)+,d4        ; gadget counter
  496.   4$        lea    NewGad(bp),a2        ; structure to fill
  497. !         move.l    WinPtr(bp),a0
  498. !         move.l    46(a0),a0        ; screen
  499.           moveq    #0,d0            ; LeftEdge
  500.           move.b    (a3)+,d0
  501.           add.b    36(a0),d0        ; screen->WBorLeft;
  502. --- 2729,2735 ----
  503.           clr.w    NewGad+16(bp)        ; clear gadget id
  504.           move.b    (a3)+,d4        ; gadget counter
  505.   4$        lea    NewGad(bp),a2        ; structure to fill
  506. !         move.l    ([WinPtr,bp],46),a0    ; screen
  507.           moveq    #0,d0            ; LeftEdge
  508.           move.b    (a3)+,d0
  509.           add.b    36(a0),d0        ; screen->WBorLeft;
  510. ***************
  511. *** 2816,2824 ****
  512.   
  513.   GetLocStr    move.l    a6,-(sp)        ; get localized string
  514.           lea    LocaleTab(pc),a1
  515. !         add.w    d0,d0
  516. !         add.w    0(a1,d0.w),a1        ; default !
  517. !         lsr.w    #1,d0
  518.           move.l    Catalog(bp),d1
  519.           beq.s    1$            ; no catalog !
  520.           move.l    d1,a0
  521. --- 2800,2806 ----
  522.   
  523.   GetLocStr    move.l    a6,-(sp)        ; get localized string
  524.           lea    LocaleTab(pc),a1
  525. !         add.w    0(a1,d0.w*2),a1        ; default !
  526.           move.l    Catalog(bp),d1
  527.           beq.s    1$            ; no catalog !
  528.           move.l    d1,a0
  529. ***************
  530. *** 2913,2940 ****
  531.   
  532.   ***************************************************************************
  533.   
  534. - ; 32-bit division (only positive values!)
  535. - 
  536. - LDiv        move.l    d3,-(sp)
  537. -         move.l    d2,-(sp)
  538. -         move.w    d1,d3
  539. -         move.w    d0,d2
  540. -         clr.w    d0
  541. -         swap    d0
  542. -         divu.w    d3,d0
  543. -         move.l    d0,d1
  544. -         swap    d0
  545. -         move.w    d2,d1
  546. -         divu.w    d3,d1
  547. -         move.w    d1,d0
  548. -         clr.w    d1
  549. -         swap    d1
  550. -         move.l    (sp)+,d2
  551. -         move.l    (sp)+,d3
  552. -         rts
  553. - 
  554. - ***************************************************************************
  555. - 
  556.   ; static data
  557.   
  558.   GadgetList    dc.b    $03,$80            ; GTYP_CLOSE
  559. --- 2895,2900 ----
  560. ***************
  561. *** 3253,3259 ****
  562.   linefeed    dc.b    10,0
  563.   
  564.           dc.b    '$VER: '
  565. ! ProgName    dc.b    'TolleUhr 1.3 (18.5.95) by M.Fleischer and G.Nikl in 1993/95',0
  566.   
  567.   fmt1        dc.b    '%s=%ld',0        ; format templates for tooltypes
  568.   fmt2        dc.b    '%s',0
  569. --- 3213,3219 ----
  570.   linefeed    dc.b    10,0
  571.   
  572.           dc.b    '$VER: '
  573. ! ProgName    dc.b    'TolleUhr [020] 1.3 (18.5.95) by M.Fleischer and G.Nikl in 1993/95',0
  574.   
  575.   fmt1        dc.b    '%s=%ld',0        ; format templates for tooltypes
  576.   fmt2        dc.b    '%s',0
  577.